home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / lights22 / weep.cpr / ISOUNDS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-06-22  |  1.2 KB  |  60 lines
  1. {$A+,B-,D+,F-,G+,I+,K-,L+,N-,P-,Q-,R-,S-,T-,V+,W+,X+,Y+}
  2. {$M 8192,8192}
  3.  
  4. {$c preload}
  5.  
  6.  
  7. unit isounds;
  8.  
  9.  
  10. interface
  11.  
  12. uses WinTypes, WinProcs;
  13.  
  14.  
  15. const cSounds = 1;
  16.  
  17.  
  18. type TSOUND = record
  19.                achRes:  string [20];
  20.                achName: string [20];
  21.              end;
  22.  
  23.      PALLSOUNDS = ^TALLSOUNDS;
  24.      TALLSOUNDS = record
  25.                cbSize: LongInt;
  26.                cEntries: LongInt;
  27.                asSounds: array [1..cSounds] of TSOUND;
  28.              end;
  29.  
  30.  
  31.  
  32. Procedure THSndQuerySounds (var p: PAllSounds);
  33.  
  34. Function THSndPlaySound (pchApp:PChar; i:integer; fSync:boolean):integer;
  35.  
  36. Function THSndRandom (pchApp:PChar; fSync:boolean):integer;
  37.  
  38. Function THSndOptions (pchApp:PChar; window: hwnd):integer;
  39.  
  40. Function THSndVersion :integer;
  41.  
  42. implementation
  43.  
  44.  
  45. Procedure THSndQuerySounds (var p: PAllSounds);
  46. external 'THsounds' index 11;
  47.  
  48. Function THSndPlaySound (pchApp:PChar; i:integer; fSync:boolean):integer;
  49. external 'THsounds' index 12;
  50.  
  51. Function THSndRandom (pchApp:PChar; fSync:boolean):integer;
  52. external 'THsounds' index 13;
  53.  
  54. Function THSndOptions (pchApp:PChar; window: hwnd):integer;
  55. external 'THsounds' index 14;
  56.  
  57. Function THSndVersion :integer;
  58. external 'THsounds' index 15;
  59.  
  60. end.